home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMICUS09.ADF / AmigaBasicProgs / ScrollDemo (.txt) < prev    next >
AmigaBASIC Source Code  |  1986-05-22  |  3KB  |  126 lines
  1.  
  2. REM Written by: Douglas Erdely
  3. REM On May 5,1986
  4.  
  5.  
  6. CLS
  7.  
  8. PRINT"MSBasic Scroll Demo"
  9. PRINT"Program written by:"
  10. PRINT"Douglas Erdely"
  11. PRINT"On May 5,1986"
  12.  
  13. ts=TIMER
  14.  
  15. Pause:
  16. tc=TIMER
  17. IF tc < (ts+4) THEN Pause
  18.  
  19.  
  20. REM **********************************
  21. REM Scroll left then right then etc...
  22. REM **********************************
  23.  
  24. a%=0:b%=7:c%=(-1)
  25.  
  26.  FOR cycle%=1 TO 4
  27.   FOR delay%=1 TO 76
  28.    SCROLL(0,a%)-(150,b%),c%,0
  29.    SCROLL(0,a%)-(150,b%),c%,0
  30.   NEXT
  31.  IF c%=-1 THEN c%=1 :ELSE IF c%=1 THEN c%=-1 
  32.  a%=a%+8:b%=b%+8
  33.  NEXT
  34.  
  35. REM **********************************
  36. REM Print screen
  37. REM **********************************
  38.  
  39. CLS
  40.  
  41. PRINT" "
  42.  
  43.  FOR x=1 TO 5
  44.  
  45.   PRINT"****************************************************************************"
  46.   PRINT"This is a demo of the scroll avaliable from MSBASIC, It is very easy to use,"
  47.   PRINT"and as you can see it is reasonable fast! This allows for some interesting"
  48.   PRINT "effects, even from basic.
  49.  NEXT x
  50.  
  51.   PRINT"****************************************************************************"
  52.  
  53.  
  54. REM **********************************
  55. REM Scroll entire screen down and off!
  56. REM **********************************
  57.  
  58.  
  59. FOR repeat% = 1 TO 100
  60.   SCROLL(0,0)-(620,200),0,1
  61.   SCROLL(0,0)-(620,200),0,1
  62. NEXT
  63.  
  64. REM **********************************
  65. REM Re-print the screen
  66. REM **********************************
  67.  
  68. 100 CLS
  69.  
  70. FOR x=1 TO 5
  71.  
  72. PRINT"  ***************************************************************************"
  73. PRINT" This is a demo of the scroll avaliable from MSBASIC, It is very easy to use,"
  74. PRINT"  and as you can see it is reasonable fast! This allows for some interesting"
  75. PRINT" effects, even from basic.
  76.  
  77. NEXT x
  78.  
  79. PRINT"  ***************************************************************************"
  80.  
  81. REM **********************************
  82. REM Shift the screen right, one fourth
  83. REM character at a time
  84. REM **********************************
  85.  
  86.  
  87.  FOR cycle%=1 TO 155
  88.    SCROLL(0,0)-(620,200),2,0
  89.    SCROLL(0,0)-(620,200),2,0
  90.  NEXT
  91.  
  92. REM **********************************
  93. REM Re-print the screen
  94. REM **********************************
  95.  
  96. CLS
  97.  
  98. PRINT" "
  99.  
  100.  FOR x=1 TO 5
  101.  
  102.   PRINT"****************************************************************************"
  103.   PRINT"This is a demo of the scroll avaliable from MSBASIC, It is very easy to use,"
  104.   PRINT"and as you can see it is reasonable fast! This allows for some interesting"
  105.   PRINT "effects, even from basic.
  106.  NEXT x
  107.  
  108.   PRINT"****************************************************************************"
  109.  
  110. REM **********************************
  111. REM Window blind effect
  112. REM **********************************
  113.  
  114. a%=0:b%=7
  115.  
  116.  FOR cycle%=1 TO 23
  117.   FOR delay%=1 TO 10
  118.     SCROLL(0,a%)-(620,b%),0,1
  119.   NEXT
  120.   a%=a%+8:b%=b%+8
  121.  NEXT
  122.  
  123.  
  124.  
  125.  
  126.